home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of Shareware
/
Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso
/
mac
/
DOS
/
CAD_CAM
/
DANCAD2
/
DEMO3.MAC
< prev
next >
Wrap
Text File
|
1990-10-04
|
20KB
|
692 lines
; DEMO3.MAC, Macro demo for DANCAD3D v2.5x release version
; Copyright (c) 1990, Daniel H. Hudgins, All rights reserved.
; Other macro files come with the registered user outfit.
; Write to: DANCAD3D, 466 Diamond St., San Francisco, CA 94114, USA.
; Begin set up
INIT ; clear DANCAD3D's workspace
WORLD 240 ; set world scale to inches
; End Set up
TEXT_MODE
ECHO ┌─────────────────────────────────────────────────────────────────────────────┐
ECHO │ DEMO3.MAC DEMONSTRATION MACRO FOR DANCAD3D v2.5x OR LATER. │
ECHO └─────────────────────────────────────────────────────────────────────────────┘
LOCATE 1 5
ECHO This DEMO macro shows you some of the types of shapes that can be drawn
ECHO with DANCAD3D. Almost any type of mechanical drawing that can be done with
ECHO DANCAD3D. Additionally DANCAD3D can be used to draw tool paths for DANCAM and
ECHO DANPLOT to manufacture or automate. DANCAD3D's workspace is virtually
ECHO boundless and points can be positioned in the workspace to tremendous accuracy
ECHO (much better than one millionth of an inch.) You can make very accurate
ECHO drawings with DANCAD3D. You can freely mix 2D and 3D drawing components in
ECHO DANCAD3D drawings. To draw with DANCAD3D you just move the drawing cursor to
ECHO any point in the workspace, press the [Right] mouse button, move the cursor to
ECHO the end point for the line segment you want to draw and press the [Left] mouse
ECHO button!
LOCATE 1 17
ECHO This demo has several parts. You should read the messages that come on
ECHO then screen and press the [Return] key when you are finished reading the
ECHO messages.
INITIALIZE_WORKSPACE
BEGIN_CUBE { Element 1 }
APPEND_LINE -0.5 -0.5 -0.5 0.5 -0.5 -0.5 1 1 0 0
APPEND_LINE 0.5 -0.5 -0.5 0.5 0.5 -0.5 1 1 0 0
APPEND_LINE 0.5 0.5 -0.5 -0.5 0.5 -0.5 1 1 0 0
APPEND_LINE -0.5 0.5 -0.5 -0.5 -0.5 -0.5 1 1 0 0
APPEND_LINE -0.5 -0.5 0.5 0.5 -0.5 0.5 1 1 0 0
APPEND_LINE 0.5 -0.5 0.5 0.5 0.5 0.5 1 1 0 0
APPEND_LINE 0.5 0.5 0.5 -0.5 0.5 0.5 1 1 0 0
APPEND_LINE -0.5 0.5 0.5 -0.5 -0.5 0.5 1 1 0 0
APPEND_LINE -0.5 -0.5 -0.5 -0.5 -0.5 0.5 1 1 0 0
APPEND_LINE -0.5 0.5 -0.5 -0.5 0.5 0.5 1 1 0 0
APPEND_LINE 0.5 -0.5 -0.5 0.5 -0.5 0.5 1 1 0 0
APPEND_LINE 0.5 0.5 -0.5 0.5 0.5 0.5 1 1 0 0
{ End CUBE }
# 1 CENTER_FOR_CUBE 0.5 0.5 0.5
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO DANCAD3D can display the line segments in the workspace several different
ECHO ways on the screen. Flat on like here.
# 0 DISPLAY 0 0 0 -1.000E+18 480 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO With Rotation to show all the sides.
# 0 DISPLAY -20 -20 0 -1.000E+18 480 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO Or with exaggerated perspective to show depth better. You can even ANIMATE
ECHO the display with the Main Menu [P]review command to get an even better feel for
ECHO the shape of the objects in the workspace. When you press [Return] the screen
ECHO will redraw ten times then animate continuously. To continue the DEMO3 you
ECHO will need to press [Return] then [Q] (for Quit) to quit the ANIMATE command.
# 0 DISPLAY -20 -20 0 -2 480 1 0 0
LOCATE 5 25 ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 1
# 0 DISPLAY -20 -20 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.1
GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 2
# 0 DISPLAY -20 -11 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.2
GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 3
# 0 DISPLAY -20 -2 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.3
GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 4
# 0 DISPLAY -20 7 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.4
GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 5
# 0 DISPLAY -20 16 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.5
GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 6
# 0 DISPLAY -20 25 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.6
GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 7
# 0 DISPLAY -20 34 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.7
GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 8
# 0 DISPLAY -20 43 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.8
GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 9
# 0 DISPLAY -20 52 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.9
GRAPH_MODE B&W
LOCATE 1 1 ECHO PIXEL FRAME: 10
# 0 DISPLAY -20 61 0 -2 480 1 0 0
SAVE PIXEL PIX\DEMO3.10
GRAPH_MODE B&W
ANIMATE PIX\DEMO3 40
INITIALIZE ; polygon curve part
GRAPH_MODE B&W
LOCATE 1 1
ECHO Since all drawing elements in DANCAD3D are made from line segments the
ECHO polygon command is used to approximate circles and similar round shapes.
ECHO Having DANCAD3D only manipulate the end points of line segments allows DANCAD3D
ECHO to deal with complex three dimensional forms and makes the program flexible and
ECHO adaptable to any line drawing purpose.
POLYGON 6 6 2 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.6
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO By using a lager number of sides polygons can look like circles. As a
ECHO practical mater this is standard practice in computer graphics, and works well
ECHO if you use more sides for larger circles. DANCAD3D lets you decide on the
ECHO resolution you want the circles to have.
POLYGON 72 72 2 1 1 0 0 { This is element 2 }
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.5
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO The MAGNIFY command can be used to squash or stretch "circles".
# 2 MAGNIFY C 1 0.5 1
# 2 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO The ROTATE command can be used to rotate a squashed or stretched "circle"
ECHO to any angle you may need.
# 2 CENTER_ON_POINT 0 0 0
# 2 ROTATE C 0 0 45
# 2 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO The WINDOW command can chop part of any element off so you can use part of
ECHO an element is some special way.
# 2 WINDOW_ELEMENT 5000 0 -2 0 2 2.5 0
# 3 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO The COPY and FLIP element commands are used here to mirror the windowed
ECHO part of the magnified and rotated element.
# 3 COPY_ELEMENT_IN_WORKSPACE
# 4 FLIP C X
JOIN_TWO_ELEMENTS 3 4
# 3 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO The two halves of the heart can be made into one element and then windowed
ECHO again to make a new shape.
# 3 WINDOW_ELEMENT 5000 -2.2 0 0 1.9 -1.9 0
# 4 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO And you can COPY and FLIP (this time the Y axis in place of the X axis) the
ECHO windowed element to make still another shape.
# 4 COPY_ELEMENT_IN_WORKSPACE
# 5 OFFSET CURRENT 0 0 0
# 5 FLIP C Y
JOIN_TWO_ELEMENTS 4 5
# 4 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH B&W
LOCATE 1 1
ECHO You can COPY, ROTATE, and JOIN the new shape to make a compound form.
# 4 ROTATE C 0 0 45
# 4 COPY_ELEMENT_IN_WORKSPACE
# 5 OFFSET CURRENT 0 0 0
# 5 ROTATE C 0 0 45
JOIN_TWO_ELEMENTS 4 5
# 4 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH B&W LOCATE 1 1
ECHO You can continue to copy, rotate and join elements to approximate any form
ECHO of line segments you can imagine.
# 4 COPY_ELEMENT_IN_WORKSPACE
# 5 OFFSET CURRENT 0 0 0
# 5 ROTATE C 0 0 22.5
JOIN_TWO_ELEMENTS 4 5
# 4 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
; Fit curve part
INITIALIZE
GRAPH_MODE B&W
LOCATE 1 1
ECHO DANCAD3D's FIT_CURVE command can make a smooth curve from a roughly drawn
ECHO curve. Here you see the roughly drawn curve.
BEGIN
APPEND -2.1 0 0 -1.4 -1.2 0 1 1 0 0
APPEND -1.4 -1.2 0 -0.1 -1.2 0 1 1 0 0
APPEND -0.1 -1.2 0 0.5 0 0 1 1 0 0
APPEND 0.5 0 0 0.5 1.2 0 1 1 0 0
APPEND 0.5 1.2 0 1.5 1.5 0 1 1 0 0
APPEND 1.5 1.5 0 1.8 0.4 0 1 1 0 0
APPEND 1.8 0.4 0 1.2 -0.8 0 1 1 0 0
APPEND 1.2 -0.8 0 -0.2 -0.8 0 1 1 0 0
APPEND -0.2 -0.8 0 -0.7 0.2 0 1 1 0 0
APPEND -0.7 0.2 0 0.9 0.5 0 1 1 0 0
APPEND 0.9 0.5 0 1.9 -0.4 0 1 1 0 0
APPEND 1.9 -0.4 0 1.9 -1.5 0 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO Next you see that the new element of the smooth curve makes the smooth
ECHO curve pass through all of the end points of the roughly drawn curve.
# 1 CURVE_FIT 4 0.2
# 0 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE
B&W LOCATE 1 1
ECHO If the smooth curve element looks correct you can erase the roughly drawn
ECHO curve element from the workspace, so that the smooth curve is un-obscured.
# 1 ERASE_ELEMENT
# 0 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
INITIALIZE_WORKSPACE
GRAPH_MODE B&W
LOCATE 1 1
ECHO Aside from drawing curves, the FIT_CURVE command has practical uses in the
ECHO production of ribs for ship hulls and air or space craft parts.
BEGIN
APPEND 1.8 -1.3 0 1.5 -0.2 0 1 1 0 0
APPEND 1.5 -0.2 0 0.8 0.7 0 1 1 0 0
APPEND 0.8 0.7 0 0 0.9 0 1 1 0 0
APPEND 0 0.9 0 -0.8 0.7 0 1 1 0 0
APPEND -0.8 0.7 0 -1.5 -0.2 0 1 1 0 0
APPEND -1.5 -0.2 0 -1.8 -1.3 0 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO Because DANCAD3D's method of fitting curves assures that the curve will
ECHO pass through the points of the rough curve you can easily draw the rough curve
ECHO from the drawing editor by using the [G]oto point command.
# 1 CURVE_FIT 5 0.2
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.25
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH_MODE B&W
LOCATE 1 1
ECHO After the quality of the curve is accepted you can use DANPLOT to make
ECHO actual size drawings for the curves, or use DANPLOT and DANCAM to actually cut
ECHO out and machine the part! Advanced commands are available in the macro
ECHO language to interpolate extra ribs BETWEEN the major ones. The fit curve
ECHO command will work in 3D to allow for the design of surface contours.
# 1 ERASE
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.5
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
; Thicken part
GRAPH_MODE B&W
LOCATE 1 1
ECHO The THICKEN command can thicken an outline of a shape to give the
ECHO appearance of thickness to elements viewed in perspective. Here you see an
ECHO outline flat on, like in the drawing editor front view.
INITIALIZE
POLYGON 36 36 0.75 1 1 0 0
# 1 OFFSET ZERO 0 -1 0
POLYGON 60 30 1 1 1 0 0
# 2 ROTATE ZERO 0 0 -90
# 2 OFFSET ZERO 0 -1 0
# 2 CENTER 0 -1 0
# 2 ROTATE CURRENT 0 0 -90
APPEND -1 -1 0 -1 1 0 1 1 0 0
APPEND -1 1 0 1 1 0 1 1 0 0
APPEND 1 1 0 1 -1 0 1 1 0 0
POLYGON 12 12 0.125 1 1 0 0
# 3 OFFSET ZERO 0.7 0.7 0
# 3 COPY
# 4 OFFSET CURRENT -1.4 0 0
JOIN 3 4
JOIN 2 3
JOIN 1 2
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.5
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH B&W
LOCATE 1 1
ECHO Here is the same outline shown in perspective.
# 0 DISPLAY 30 -20 45 -2.5 350 1 0 -0.3
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH B&W
LOCATE 1 1
ECHO And now the outline has been thickened. This is a perspective view to show
ECHO how the polygons have been made into holes and rounded surfaces. The thicken
ECHO command takes a moment to work but is not used frequently, so the time is not
ECHO important.
# 1 THICKEN Z -0.375
# 0 DISPLAY 30 -20 45 -2.5 350 1 0 -0.3
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
; Lathe part
GRAPH B&W
LOCATE 1 1
ECHO The LATHE command simplifies the drawing of round shapes by using a right
ECHO hand profile of the round shape you want to make as a template for the
ECHO "turning" of the form. Here you see a right hand profile.
INITIALIZE
POLYGON 36 9 1 1 1 0 0
# 1 OFFSET ZERO 0 -1 0
# 1 CENTER 0 -1 0
# 1 ROTATE CURRENT 0 0 90
APPEND 1 -1 0 0.9 -0.8 0 1 1 0 0
APPEND 0.9 -0.8 0 0.9 1 0 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.5
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH B&W
LOCATE 1 1
ECHO Here you see the result of the LATHE command on the right hand profile
ECHO element you say in the last screen. The lathe command will take a moment to
ECHO work but is is not used frequently so that is not important. This shape
ECHO resembles a rivet before being used. Macro commands are available to modify
ECHO the profile, before the element is lathed, to vary the contours during
ECHO animation.
# 1 LATHE 12 12
# 0 DISPLAY 0 0 90 -20 350 1 0.5 0.25
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH B&W
LOCATE 1 1
ECHO You can use the LATHE command to turn parts that make up part of a complete
ECHO rotation around the lathe axis. In a moment you see a one quarter turn made
ECHO from the same profile used in the last example.
INITIALIZE
POLYGON 36 9 1 1 1 0 0
# 1 OFFSET ZERO 0 -1 0
# 1 CENTER 0 -1 0
# 1 ROTATE CURRENT 0 0 90
APPEND 1 -1 0 0.9 -0.8 0 1 1 0 0
APPEND 0.9 -0.8 0 0.9 1 0 1 1 0 0
# 1 LATHE 24 6
# 0 DISPLAY -20 -20 90 -2.5 350 1 0.5 0.5
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
INIT GRAPH B&W LOCATE 1 1
ECHO Here is another example of how the lathe command can be used. To make
ECHO outlines of shapes that have openings at the center you would draw all the line
ECHO segments in the element to lathe right of center.
BEGIN
APPEND 2 0 0 1 0 0 1 1 0 0
APPEND 1 0 0 1 -0.4 0 1 1 0 0
APPEND 1 -0.4 0 1.3 -0.4 0 1 1 0 0
APPEND 1.3 -0.4 0 1.3 -0.2 0 1 1 0 0
APPEND 1.3 -0.2 0 2 -0.2 0 1 1 0 0
APPEND 2 -0.2 0 2 0 0 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.3
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH B&W LOCATE 1 1
ECHO Circles or rectangles right of center when lathed make ring type shapes.
ECHO In the last screen you saw a "L" shaped rectangular source element. When the
ECHO lathed element made from the source element in the last screen appears you will
ECHO see that the result looks like a shoulder washer with the raised part of the
ECHO "L" making the shoulder. Use the Lathe command when you need stepped edges
ECHO like this.
# 1 LATHE 18 18
# 0 DISPLAY -35 0 0 -4 310 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
; Start Thicken two
INIT GRAPH B&W
ECHO When you need ring shapes that do not have rounded edges or steps the
ECHO Thicken command can be used to produce a different type of appearance. For the
ECHO Thicken command you would draw the full face of the part, as shown here.
POLYGON 72 72 2 1 1 0 0
POLYGON 40 40 1 1 1 0 0
POLYGON 12 12 0.125 1 1 0 0
# 3 OFFSET ZERO 0 -1.5 0
# 3 COPY
# 4 OFFSET CURRENT 0 0 0
# 3 COPY
# 5 OFFSET CURRENT 0 0 0
# 5 CENTER 0 0 0
# 5 ROTATE CURRENT 0 0 120
# 4 CENTER 0 0 0
# 4 ROTATE CURRENT 0 0 -120
APPEND 0 -2 0 0 -1.625 0 1 1 0 0
APPEND 0 -1.375 0 0 -1 0 1 1 0 0
APPEND 0 1 0 0 2 0 1 1 0 0
APPEND -1 0 0 -2 0 0 1 1 0 0
APPEND 1 0 0 2 0 0 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 240 1 0 0.3
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
GRAPH B&W LOCATE 1 1
ECHO Then after thickening the small circles will become the mounting holes.
# 0 THICKEN Z -0.375
# 0 DISPLAY 33 0 30 -7 330 1 0 -0.3
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
INIT GRAPH B&W
ECHO DANCAD3D lets you make special fonts for the lettering commands. These are
ECHO some of the characters that come with the user outfit. Special International
ECHO fonts are supplied with the user outfit. Also supplied are fonts for drafting
ECHO that use fewer line segments than the default font on the ShareWare disks.
LOAD 2D DEMO3A.2D
# 0 DISPLAY 0 0 0 1E18 260 1 0 0
# 0 DISPLAY 0 0 0 1E18 260 1 0.01 0.01
# 0 DISPLAY 0 0 0 1E18 260 1 0.01 -0.01
# 0 DISPLAY 0 0 0 1E18 260 1 -0.01 0.01
# 0 DISPLAY 0 0 0 1E18 260 1 -0.01 -0.01
# 0 DISPLAY 0 0 0 1E18 260 1 0.0065 0.0065
# 0 DISPLAY 0 0 0 1E18 260 1 0.0065 -0.0065
# 0 DISPLAY 0 0 0 1E18 260 1 -0.0065 0.0065
# 0 DISPLAY 0 0 0 1E18 260 1 -0.0065 -0.0065
# 0 DISPLAY 0 0 0 1E18 260 1 0.003 0.003
# 0 DISPLAY 0 0 0 1E18 260 1 0.003 -0.003
# 0 DISPLAY 0 0 0 1E18 260 1 -0.003 0.003
# 0 DISPLAY 0 0 0 1E18 260 1 -0.003 -0.003
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
INIT GRAPH B&W LOCATE 1 1
ECHO DANCAD3D's ALIAS index files let you quickly load symbols like these into
ECHO your drawings while drawing. These are some examples from the symbols supplied
ECHO with the user outfit. Among the symbols supplied with the outfit are symbols
ECHO for Electronic schematics, PCB layout, Mathematical symbols, Flow chart
ECHO symbols, and assorted symbols for Astronomy, Map making, and Music engraving.
ECHO You can create any number of special symbols for your own use.
LOAD 2D DEMO3B.2D
# 0 DISPLAY 0 0 0 1E18 1 1 0 0
# 0 DISPLAY 0 0 0 1E18 1 1 1.75 1.75
# 0 DISPLAY 0 0 0 1E18 1 1 1.75 -1.75
# 0 DISPLAY 0 0 0 1E18 1 1 -1.75 1.75
# 0 DISPLAY 0 0 0 1E18 1 1 -1.75 -1.75
# 0 DISPLAY 0 0 0 1E18 1 1 1 1
# 0 DISPLAY 0 0 0 1E18 1 1 1 -1
# 0 DISPLAY 0 0 0 1E18 1 1 -1 1
# 0 DISPLAY 0 0 0 1E18 1 1 -1 -1
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
INIT GRAPH B&W WORLD 240
ECHO DANCAD3D offers several line types: Solid, Dotted, Dashed, and Combination
ECHO of dots and dashes. You can adjust the spacing of the dots and dashed to get
ECHO dozens of variations of each style.
BEGIN
APPEND -2.25 -1.5 0 2.25 -1.5 0 1 1 0 0
APPEND 2.25 -0.5 0 -2.25 -0.5 0 1 1 0 161
APPEND -2.25 0.5 0 2.25 0.5 0 1 1 0 242
APPEND 2.25 1.5 0 -2.25 1.5 0 1 1 0 227
# 0 DISPLAY 0 0 0 -1.000E+18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
INIT GRAPH B&W WORLD 240
ECHO DANCAD3D also lets you vary the line width from vary narrow to very wide.
ECHO When the line segments are wide you can also chose from several styles for the
ECHO end shape of the line segments, such as round or square.
BEGIN
APPEND -2.25 -1.5 0 2.25 -1.5 0 1 1 0 0
APPEND 2.25 -0.5 0 -2.25 -0.5 0 1 20 0 0
APPEND -2.25 0.5 0 2.25 0.5 0 1 50 0 0
APPEND 2.25 1.5 0 -2.25 1.5 0 1 255 16 0
# 0 DISPLAY 0 0 0 -1.000E+18 240 1 0 0
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
INIT TEXT
ECHO This demo has just scratched the surface of all the types of drawing
ECHO elements you can make with DANCAD3D. Please read the file DANCAD3D.DOC that
ECHO you should have on your program disks. Additional examples and explanation of
ECHO how to use DANCAD3D are included in the registered user outfit.
LOCATE 1 6
ECHO I hope you enjoy learning how to make practical use of DANCAD3D. If your
ECHO hardware meets the requirements outlined in the file DANCAD3D.DOC DANCAD3D
ECHO should work for you. If you are having any problems feel free to write to
ECHO report the problem you are having. When you write please enclose return
ECHO postage for the reply as US first class stamps or some first class
ECHO international postal vouchers.
LOCATE 5 25
ECHO Press [Return] to continue. %%
WAIT
; END MACRO FILE DEMO3.MAC